%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% On Error Resume Next %>
<%
MenuId1 = Request.queryString("MenuId1")
MenuId2 = Request.queryString("MenuId2")
SelectedMenuId = Request.queryString("SelectedMenuId")
query = "SELECT * FROM Menu WHERE Id = " & SelectedMenuId
Set RSMenu = Conn.Execute(Query)
SelectedMenuId = RSMenu("Id")
MenuName = RSMenu("MenuName")
MenuDesc = RSMenu("Description")
MenuOrder = RSMenu("MenuOrder")
Subject = RSMenu("Subject")
IsLive = RSMenu("IsLive")
%>
<%= WebsiteTitle %>
<%= end_conna() %>